home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n04.arc / HELLO.PAS < prev    next >
Pascal/Delphi Source File  |  1990-01-30  |  773b  |  52 lines
  1. HELLO.PAS (2 Versions)
  2.  
  3.  
  4.  
  5.  
  6. PROGRAM Hello;
  7. (* Turbo Pascal 5.5 version *)
  8. TYPE
  9.   message = OBJECT
  10.     words : String;
  11.     CONSTRUCTOR Init(iS : String);
  12.     PROCEDURE Say;
  13.   END;
  14.  
  15.   CONSTRUCTOR Message.Init(iS : String);
  16.   BEGIN  words := iS;  END;
  17.  
  18.   PROCEDURE Message.Say;
  19.   BEGIN  WriteLn(words);  END;
  20.  
  21. VAR H : message;
  22. BEGIN
  23.   H.Init('OO Hello!');
  24.   H.Say;
  25. END.
  26.  
  27.  
  28. PROGRAM Hello;
  29. (* QuickPascal version *)
  30. TYPE
  31.   message = OBJECT
  32.     words : String;
  33.     PROCEDURE Init(iS : String);
  34.     PROCEDURE Say;
  35.   END;
  36.  
  37.   PROCEDURE Message.Init(iS : String);
  38.   BEGIN  self.words := iS;  END;
  39.  
  40.   PROCEDURE Message.Say;
  41.   BEGIN  WriteLn(self.words);  END;
  42.  
  43. VAR H : message;
  44. BEGIN
  45.   New(H);
  46.   H.Init('OO Hello!');
  47.   H.Say;
  48. END.
  49.  
  50.  
  51.  
  52.